home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 July
/
1984-07.d64
/
color chart_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
586b
|
14 lines
40 for i=49152 to 49188: read a: poke i,a: next:poke 53280,11
50 print chr$(147):for i=1024 to i+1000: poke i,160: poke i+54272,11:nexti
60 for i=0 to 15: for j=0 to 15
70 p=1196+(40*i)+j: poke p,j+1: poke p+54272,j: next j,i
80 print tab(15)chr$(5)"color chart":for i=1 to 19:print:next
85 print"this chart shows all combinations of "
86 print "foreground and background colors. "
87 print "foreground increases from left to right"
88 print "background increases from top to bottom";
90 sys 12*4096
100 data 169,90,133,251,169,0,141,33,208,162,15,120
105 data 173,17,208,48,251,173,18,208
110 data 197,251,208,249,238,33,208,24,105,8,133,251,202,16,233,48,219